inherited sprUpdateApps: TsprUpdateApps
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1072#1074#1090#1086#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 187
    Width = 792
    Height = 5
    Cursor = crVSplit
    Align = alTop
    Beveled = True
  end
  inherited ToolBar1: TToolBar
    Top = 192
    inherited ToolButton2: TToolButton
      Visible = False
    end
    inherited ToolButton10: TToolButton
      Visible = False
    end
    inherited ToolButton11: TToolButton
      Visible = False
    end
    object ToolButton16: TToolButton
      Left = 216
      Top = 0
      Action = aGetVersion
    end
  end
  inherited Panel2: TPanel
    Top = 217
    Height = 258
    inherited PageControl1: TPageControl
      Height = 258
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 230
          Caption = ' '#1060#1072#1081#1083#1099' '#1087#1088#1080#1083#1086#1078#1077#1085#1080#1103' '
          inherited dbgRefer: TDBGridEh
            Height = 213
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'APP_ID'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'UPDATEDATETIME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'FILENAME'
                Footers = <>
                Width = 168
              end
              item
                EditButtons = <>
                FieldName = 'FVERSION'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'FDATA'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'MD5HASH'
                Footers = <>
                Visible = False
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 784
          Height = 230
          Align = alClient
          object Label2: TLabel [0]
            Left = 91
            Top = 14
            Width = 17
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044
          end
          object Label3: TLabel [1]
            Left = 23
            Top = 36
            Width = 85
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
          end
          object Label4: TLabel [2]
            Left = 23
            Top = 60
            Width = 85
            Height = 13
            Alignment = taRightJustify
            Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1092#1072#1081#1083#1072
          end
          object Label1: TLabel [3]
            Left = 71
            Top = 82
            Width = 37
            Height = 13
            Alignment = taRightJustify
            Caption = #1042#1077#1088#1089#1080#1103
          end
          inherited pnlButtons: TPanel
            Top = 197
            Width = 780
            inherited SpeedButton1: TSpeedButton
              Left = 581
            end
            inherited SpeedButton2: TSpeedButton
              Left = 683
            end
          end
          object DBEditEh1: TDBEditEh
            Left = 114
            Top = 10
            Width = 65
            Height = 19
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'ID'
            DataSource = dscRefer
            EditButtons = <>
            Enabled = False
            Flat = True
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
          object DBEditEh2: TDBEditEh
            Left = 114
            Top = 34
            Width = 229
            Height = 19
            AlwaysShowBorder = True
            DataField = 'UPDATEDATETIME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            ReadOnly = True
            TabOrder = 2
            Visible = True
          end
          object DBEditEh3: TDBEditEh
            Left = 114
            Top = 58
            Width = 229
            Height = 19
            AlwaysShowBorder = True
            DataField = 'FILENAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            ReadOnly = True
            TabOrder = 3
            Visible = True
          end
          object DBEditEh4: TDBEditEh
            Left = 114
            Top = 80
            Width = 75
            Height = 19
            AlwaysShowBorder = True
            DataField = 'FVERSION'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 4
            Visible = True
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Top = 217
    Height = 0
  end
  object ToolBar2: TToolBar [5]
    Left = 0
    Top = 0
    Width = 792
    Height = 25
    Caption = 'ToolBar2'
    Flat = True
    Images = MAIN.ImageList
    TabOrder = 4
    object ToolButton12: TToolButton
      Left = 0
      Top = 0
      Action = aAppAdd
    end
    object ToolButton13: TToolButton
      Left = 23
      Top = 0
      Action = aAppEdit
    end
    object ToolButton14: TToolButton
      Left = 46
      Top = 0
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton15: TToolButton
      Left = 54
      Top = 0
      Action = aAppDel
    end
  end
  object GroupBox4: TGroupBox [6]
    Left = 0
    Top = 25
    Width = 792
    Height = 162
    Align = alTop
    Caption = ' '#1055#1088#1080#1083#1086#1078#1077#1085#1080#1103' '
    TabOrder = 5
    object dbgApps: TDBGridEh
      Left = 2
      Top = 15
      Width = 788
      Height = 145
      Align = alClient
      DataSource = dscApps
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      UseMultiTitle = True
      VTitleMargin = 5
      Columns = <
        item
          EditButtons = <>
          FieldName = 'ID'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'APP_NAME'
          Footers = <>
          Width = 203
        end
        item
          EditButtons = <>
          FieldName = 'DESCRIPTION'
          Footers = <>
          Width = 205
        end>
    end
  end
  inherited shblActionList: TActionList
    object aAppAdd: TAction
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1083#1086#1078#1077#1085#1080#1077
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1088#1080#1083#1086#1078#1077#1085#1080#1077
      ImageIndex = 9
      OnExecute = aAppAddExecute
    end
    object aAppEdit: TAction
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1083#1086#1078#1077#1085#1080#1077
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1088#1080#1083#1086#1078#1077#1085#1080#1077
      ImageIndex = 5
      OnExecute = aAppEditExecute
    end
    object aAppDel: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1087#1088#1080#1083#1086#1078#1077#1085#1080#1077
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1087#1088#1080#1083#1086#1078#1077#1085#1080#1077
      ImageIndex = 2
      OnExecute = aAppDelExecute
    end
    object aGetVersion: TAction
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1092#1072#1081#1083' '#1083#1086#1082#1072#1083#1100#1085#1086
      Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1092#1072#1081#1083' '#1083#1086#1082#1072#1083#1100#1085#1086
      ImageIndex = 15
      OnExecute = aGetVersionExecute
    end
  end
  inherited dsRefer: TpFIBDataSet
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    UPDATE_FILES'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO UPDATE_FILES('
      '    APP_ID,'
      '    UPDATEDATETIME,'
      '    FILENAME,'
      '    FVERSION,'
      '    FDATA,'
      '    MD5HASH'
      ')'
      'VALUES('
      '    :APP_ID,'
      '    :UPDATEDATETIME,'
      '    :FILENAME,'
      '    :FVERSION,'
      '    :FDATA,'
      '    :MD5HASH'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    APP_ID,'
      '    UPDATEDATETIME,'
      '    FILENAME,'
      '    FVERSION,'
      '    cast(null as BLOB SUB_TYPE 0 SEGMENT SIZE 80) as FDATA,'
      '    MD5HASH'
      'FROM'
      '    UPDATE_FILES '
      'where(  1 = 1'
      '     ) and (     UPDATE_FILES.ID = :OLD_ID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    APP_ID,'
      '    UPDATEDATETIME,'
      '    FILENAME,'
      '    FVERSION,'
      '    cast(null as BLOB SUB_TYPE 0 SEGMENT SIZE 80) as FDATA,'
      '    MD5HASH'
      'FROM'
      '    UPDATE_FILES '
      'where 1 = 1')
    AllowedUpdateKinds = [ukInsert, ukDelete]
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsReferAPP_ID: TFIBIntegerField
      FieldName = 'APP_ID'
    end
    object dsReferUPDATEDATETIME: TFIBDateTimeField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'UPDATEDATETIME'
    end
    object dsReferFILENAME: TFIBStringField
      DisplayLabel = #1060#1072#1081#1083
      FieldName = 'FILENAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsReferFVERSION: TFIBStringField
      DisplayLabel = #1042#1077#1088#1089#1080#1103
      FieldName = 'FVERSION'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferFDATA: TFIBBlobField
      DisplayLabel = #1058#1077#1083#1086' '#1092#1072#1081#1083#1072
      FieldName = 'FDATA'
      Size = 8
    end
    object dsReferMD5HASH: TFIBStringField
      DisplayLabel = #1061#1077#1096
      FieldName = 'MD5HASH'
      Size = 255
      EmptyStrToNull = True
    end
  end
  inherited trRefer: TpFIBTransaction
    Left = 28
  end
  inherited trLists: TpFIBTransaction
    Left = 536
    Top = 265
  end
  object dsApps: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE UPDATE_APPS'
      'SET '
      '    APP_NAME = :APP_NAME,'
      '    DESCRIPTION = :DESCRIPTION'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    UPDATE_APPS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO UPDATE_APPS('
      '    APP_NAME,'
      '    DESCRIPTION'
      ')'
      'VALUES('
      '    :APP_NAME,'
      '    :DESCRIPTION'
      ')')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    APP_NAME,'
      '    DESCRIPTION'
      'FROM'
      '    UPDATE_APPS '
      ''
      ' WHERE '
      '        UPDATE_APPS.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    APP_NAME,'
      '    DESCRIPTION'
      'FROM'
      '    UPDATE_APPS ')
    AfterScroll = dsAppsAfterScroll
    Transaction = trApps
    Database = MAINDM.pMainDatabase
    Left = 370
    Top = 81
    object dsAppsID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object dsAppsAPP_NAME: TFIBStringField
      DisplayLabel = #1055#1088#1080#1083#1086#1078#1077#1085#1080#1077'('#1082#1086#1076')'
      FieldName = 'APP_NAME'
      Size = 255
      EmptyStrToNull = True
    end
    object dsAppsDESCRIPTION: TFIBStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'DESCRIPTION'
      Size = 255
      EmptyStrToNull = True
    end
  end
  object dscApps: TDataSource
    DataSet = dsApps
    Left = 408
    Top = 81
  end
  object trApps: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 330
    Top = 79
  end
  object dsGetVersion: TpFIBDataSet
    SelectSQL.Strings = (
      'select fdata'
      'from update_files'
      'where id = :file_id')
    AllowedUpdateKinds = []
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 226
    Top = 345
    object dsGetVersionFDATA: TFIBBlobField
      FieldName = 'FDATA'
      Size = 8
    end
  end
end
